normalise Function

public function normalise(a) result(result)

function that normalises a real vector a to make it a unit vector, where

Arguments

Type IntentOptional Attributes Name
real(kind=dp), DIMENSION(:) :: a

Return Value real(kind=dp), DIMENSION(SIZE(a))


Calls

proc~~normalise~~CallsGraph proc~normalise normalise proc~norm_2 norm_2 proc~normalise->proc~norm_2

Called by

proc~~normalise~~CalledByGraph proc~normalise normalise proc~eigen Eigen proc~eigen->proc~normalise proc~is_spd is_SPD proc~is_spd->proc~eigen

Source Code

    FUNCTION normalise(a) RESULT(result)

        REAL(dp), DIMENSION(:) :: a
        REAL(dp), DIMENSION(SIZE(a)) :: result

        result = a / norm_2(a)

    END FUNCTION normalise